home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / led.exe / LEDS2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-21  |  7.9 KB  |  254 lines
  1. VERSION 4.00
  2. Begin VB.Form FrmLEDSample2 
  3.    Appearance      =   0  'Flat
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "LED - Width Sample"
  6.    ClientHeight    =   3075
  7.    ClientLeft      =   1530
  8.    ClientTop       =   2265
  9.    ClientWidth     =   4680
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   3480
  21.    Left            =   1470
  22.    LinkTopic       =   "Form1"
  23.    ScaleHeight     =   3075
  24.    ScaleWidth      =   4680
  25.    Top             =   1920
  26.    Width           =   4800
  27.    Begin VB.HScrollBar HScroll3 
  28.       Height          =   255
  29.       Left            =   1680
  30.       TabIndex        =   2
  31.       Top             =   2520
  32.       Width           =   1575
  33.    End
  34.    Begin VB.HScrollBar HScroll2 
  35.       Height          =   255
  36.       Left            =   1680
  37.       TabIndex        =   1
  38.       Top             =   2160
  39.       Width           =   1575
  40.    End
  41.    Begin VB.HScrollBar HScroll1 
  42.       Height          =   255
  43.       Left            =   1680
  44.       TabIndex        =   0
  45.       Top             =   1800
  46.       Width           =   1575
  47.    End
  48.    Begin LedLib.LED LED1 
  49.       Height          =   1335
  50.       Left            =   240
  51.       TabIndex        =   10
  52.       Top             =   240
  53.       Width           =   1335
  54.       _Version        =   131072
  55.       _ExtentX        =   2355
  56.       _ExtentY        =   2355
  57.       _StockProps     =   64
  58.       BevelInner      =   3
  59.       BevelShapeInner =   1
  60.       BevelOuter      =   1
  61.       BevelShapeOuter =   0
  62.       BevelWidthOuter =   1
  63.       BevelWidthInner =   1
  64.       BorderWidth     =   4
  65.       DisabledColor   =   12632256
  66.       OffColor        =   8421504
  67.       OnColor         =   255
  68.       Value           =   -1  'True
  69.    End
  70.    Begin VB.Label Label7 
  71.       Appearance      =   0  'Flat
  72.       Caption         =   "This sample shows the effect of changing the various bevel and border widths.  Play with the scroll bars to see the changes."
  73.       BeginProperty Font 
  74.          name            =   "MS Sans Serif"
  75.          charset         =   0
  76.          weight          =   400
  77.          size            =   9.75
  78.          underline       =   0   'False
  79.          italic          =   0   'False
  80.          strikethrough   =   0   'False
  81.       EndProperty
  82.       ForeColor       =   &H80000008&
  83.       Height          =   1335
  84.       Left            =   1800
  85.       TabIndex        =   9
  86.       Top             =   240
  87.       Width           =   2655
  88.    End
  89.    Begin VB.Label Label6 
  90.       Appearance      =   0  'Flat
  91.       BackColor       =   &H80000005&
  92.       BackStyle       =   0  'Transparent
  93.       Caption         =   "BorderWidth:"
  94.       BeginProperty Font 
  95.          name            =   "MS Sans Serif"
  96.          charset         =   0
  97.          weight          =   400
  98.          size            =   8.25
  99.          underline       =   0   'False
  100.          italic          =   0   'False
  101.          strikethrough   =   0   'False
  102.       EndProperty
  103.       ForeColor       =   &H80000008&
  104.       Height          =   255
  105.       Left            =   240
  106.       TabIndex        =   8
  107.       Top             =   2520
  108.       Width           =   1335
  109.    End
  110.    Begin VB.Label Label5 
  111.       Appearance      =   0  'Flat
  112.       BackColor       =   &H80000005&
  113.       BackStyle       =   0  'Transparent
  114.       Caption         =   "BevelWidthInner:"
  115.       BeginProperty Font 
  116.          name            =   "MS Sans Serif"
  117.          charset         =   0
  118.          weight          =   400
  119.          size            =   8.25
  120.          underline       =   0   'False
  121.          italic          =   0   'False
  122.          strikethrough   =   0   'False
  123.       EndProperty
  124.       ForeColor       =   &H80000008&
  125.       Height          =   255
  126.       Left            =   240
  127.       TabIndex        =   7
  128.       Top             =   2160
  129.       Width           =   1335
  130.    End
  131.    Begin VB.Label Label4 
  132.       Appearance      =   0  'Flat
  133.       BackColor       =   &H80000005&
  134.       BackStyle       =   0  'Transparent
  135.       Caption         =   "BevelWidthOuter:"
  136.       BeginProperty Font 
  137.          name            =   "MS Sans Serif"
  138.          charset         =   0
  139.          weight          =   400
  140.          size            =   8.25
  141.          underline       =   0   'False
  142.          italic          =   0   'False
  143.          strikethrough   =   0   'False
  144.       EndProperty
  145.       ForeColor       =   &H80000008&
  146.       Height          =   255
  147.       Left            =   240
  148.       TabIndex        =   6
  149.       Top             =   1800
  150.       Width           =   1335
  151.    End
  152.    Begin VB.Label Label3 
  153.       Appearance      =   0  'Flat
  154.       BackColor       =   &H80000005&
  155.       BackStyle       =   0  'Transparent
  156.       Caption         =   "Label3"
  157.       BeginProperty Font 
  158.          name            =   "MS Sans Serif"
  159.          charset         =   0
  160.          weight          =   400
  161.          size            =   8.25
  162.          underline       =   0   'False
  163.          italic          =   0   'False
  164.          strikethrough   =   0   'False
  165.       EndProperty
  166.       ForeColor       =   &H80000008&
  167.       Height          =   255
  168.       Left            =   3360
  169.       TabIndex        =   5
  170.       Top             =   2520
  171.       Width           =   1095
  172.    End
  173.    Begin VB.Label Label2 
  174.       Appearance      =   0  'Flat
  175.       BackColor       =   &H80000005&
  176.       BackStyle       =   0  'Transparent
  177.       Caption         =   "Label2"
  178.       BeginProperty Font 
  179.          name            =   "MS Sans Serif"
  180.          charset         =   0
  181.          weight          =   400
  182.          size            =   8.25
  183.          underline       =   0   'False
  184.          italic          =   0   'False
  185.          strikethrough   =   0   'False
  186.       EndProperty
  187.       ForeColor       =   &H80000008&
  188.       Height          =   255
  189.       Left            =   3360
  190.       TabIndex        =   4
  191.       Top             =   2160
  192.       Width           =   1095
  193.    End
  194.    Begin VB.Label Label1 
  195.       Appearance      =   0  'Flat
  196.       BackColor       =   &H80000005&
  197.       BackStyle       =   0  'Transparent
  198.       Caption         =   "Label1"
  199.       BeginProperty Font 
  200.          name            =   "MS Sans Serif"
  201.          charset         =   0
  202.          weight          =   400
  203.          size            =   8.25
  204.          underline       =   0   'False
  205.          italic          =   0   'False
  206.          strikethrough   =   0   'False
  207.       EndProperty
  208.       ForeColor       =   &H80000008&
  209.       Height          =   255
  210.       Left            =   3360
  211.       TabIndex        =   3
  212.       Top             =   1800
  213.       Width           =   975
  214.    End
  215. Attribute VB_Name = "FrmLEDSample2"
  216. Attribute VB_Creatable = False
  217. Attribute VB_Exposed = False
  218. Option Explicit
  219. Private Sub Form_Load()
  220.     HScroll1.Value = LED1.BevelWidthOuter
  221.     HScroll1.Min = 0
  222.     HScroll1.Max = 10
  223.     HScroll2.Value = LED1.BevelWidthInner
  224.     HScroll2.Min = 0
  225.     HScroll2.Max = 10
  226.     HScroll3.Value = LED1.BorderWidth
  227.     HScroll3.Min = 0
  228.     HScroll3.Max = 10
  229.     Call HScroll1_Change
  230.     Call HScroll2_Change
  231.     Call HScroll3_Change
  232. End Sub
  233. Private Sub HScroll1_Change()
  234.     LED1.BevelWidthOuter = HScroll1.Value
  235.     Label1.Caption = HScroll1.Value & " Pixel(s)"
  236. End Sub
  237. Private Sub HScroll1_Scroll()
  238.     Call HScroll1_Change
  239. End Sub
  240. Private Sub HScroll2_Change()
  241.     LED1.BevelWidthInner = HScroll2.Value
  242.     Label2.Caption = HScroll2.Value & " Pixel(s)"
  243. End Sub
  244. Private Sub HScroll2_Scroll()
  245.     Call HScroll2_Change
  246. End Sub
  247. Private Sub HScroll3_Change()
  248.     LED1.BorderWidth = HScroll3.Value
  249.     Label3.Caption = HScroll3.Value & " Pixel(s)"
  250. End Sub
  251. Private Sub HScroll3_Scroll()
  252.     Call HScroll3_Change
  253. End Sub
  254.